home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / arexx / rmh / install < prev    next >
Text File  |  1999-06-14  |  2KB  |  79 lines
  1. ; $VER: rmh_Install
  2.  
  3. (procedure choose
  4.  (set what
  5.   (askoptions
  6.    (prompt "What do you want to install?"
  7.     (help "Choose what you want to install")
  8.     (choices "rmh.library" "rmh.library guide" "examples")
  9.    )
  10.   )
  11.  )
  12. )
  13.  
  14. (procedure selGuideDest
  15.  (set #installGuideDir
  16.   (askdir
  17.    (prompt "Select the directory where you want to "
  18.     "install rmh.library guide")
  19.     (help "This will install rmh.library guide")
  20.    (default "Ram Disk:")
  21.   )
  22.  )
  23. )
  24. (procedure copy-guide
  25.  (selGuideDest)
  26.  (copyfiles
  27.   (source (tackon #source-dir "DOCS/english/"))
  28.   (dest #installGuideDir)
  29.   (optional force)
  30.   (all)
  31.  )
  32. )
  33.  
  34. (procedure selExDest
  35.  (set #installExDir
  36.   (askdir
  37.    (prompt "Select the directory where you want to "
  38.     "install the examples")
  39.     (help "This will install rmh.library examples")
  40.    (default "Ram Disk:")
  41.   )
  42.  )
  43. )
  44. (procedure copy-ex
  45.  (selExDest)
  46.  (copyfiles
  47.   (source (tackon #source-dir "EXAMPLES/"))
  48.   (dest #installExDir)
  49.   (optional force)
  50.   (all)
  51.  )
  52. )
  53.  
  54. (procedure copy-lib
  55.  (copylib
  56.   (prompt "Installing rmh.library to LIBS:" )
  57.   (help "This will copy rmh.library to LIBS:")
  58.   (source (tackon #source-dir "LIBS/rmh.library"))
  59.   (dest @default-dest)
  60.   (confirm)
  61.   (optional "askuser" "force")
  62.  )
  63. )
  64.  
  65. (welcome "Welcome to the rmh.library installation.\n")
  66.  
  67. (set @app-name "rmh.library")
  68. (set @default-dest "LIBS:")
  69. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  70.  (expandpath @icon))
  71. )
  72.  
  73. (complete 0)
  74. (choose)
  75. (if (= 0 what) (exit))
  76. (if (BITAND what 1) ((copy-lib)(complete 33)))
  77. (if (BITAND what 2) (((copy-guide))(complete 66)))
  78. (if (BITAND what 4) (copy-ex))(complete 100)
  79.